<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="aFunction_charCode.asp" -->
<!-- #include file="ad_comSub.asp" -->

<%
Call tslt_useridentity12_error_end()
%>

<HTML>
<HEAD>
<TITLE></TITLE>
<link href=../style/<%=session("tslt_stylefolder")%>/admin.css rel="stylesheet" type="text/css">
</HEAD>
<BODY bgcolor=#aaaac4>
<CENTER>
<br>
<table><tr><td class="font2">Ȩ</td></tr></table>
<br>
</CENTER>
<form name=form1 action=enduemanage.asp method=post>
<hr width=1345>
      <input type="hidden" name="hidden1" value="ok">
      <TABLE align=left border=0 width=220>
             &nbsp;&nbsp;
             <input type=text size=8 name=userloginip onmouseup="alert('ҪֹĳûIPַ?\nûIPַֹIPť');">
             <input type=submit name=b1 value=ֹIP>
             <br>
             &nbsp;&nbsp;
            <input type=text size=8 name=onuserloginip onmouseup="alert('ҪͷĳûIPַ?\nûIPַͷIPť');">
            <input type=submit name=b2 value=ͷIP>
      </TABLE>

      <TABLE align=left border=0 width=210>
            <input type=text size=8 name=forbid onmouseup="alert('Ҫֹĳûķ?\nûֹûť');">
            <input type=submit name=b3 value=ֹû>
            <br>
            <input type=text size=8 name=onforbid onmouseup="alert('Ҫָĳûķ?\nûֹť');">
            <input type=submit name=b4 value=ֹ>
      </TABLE>

      <TABLE align=left width=380 border="0" cellspacing="1" cellpadding="0" >
            <input type=text name=username5 size=8 onmouseup="alert('Ҫĳûӵ    Ȩ?\nûڰȨޡť\nѡиѡϯ');">
            <select name=boardname5 style="width:100px;">
<%
            set shsh=conn.execute("select boardname,boardid from board")
            do while not shsh.eof
                  response.write"<option value='"&shsh("boardid")&"'>"&shsh("boardname")&"</option>"
                  shsh.movenext 
            loop
            shsh.close
            set shsh=nothing
%>
            </select><input type=checkbox name=chk><input type=submit name=b5 value=ڰȨ>
            <br>
            <input type=text name=username6 size=8 onmouseup="alert('Ҫĳû    Ȩ?\nûȨޡť');">
            <select name=boardname6 style="width:100px;">  
<%
            set shsh=conn.execute("select boardname,boardid from board")
            do while not shsh.eof
                  response.write"<option value='"&shsh("boardid")&"'>"&shsh("boardname")&"</option>"
                  shsh.movenext 
            loop
            shsh.close
           set shsh=nothing
%>
           </select>
           &nbsp;<input type=submit height=18 width=15  name=b6 value=Ȩ>
     </TABLE>

     <%if session("tslt_useridentity")=1 then%>
             <TABLE align=left width=280 border="0" cellspacing="1" cellpadding="0" >
                      <input type=text name=username1 size=8 onmouseup="alert('Ҫĳûӵ  Ա  Ȩ?\nûڹԱȨޡť');">
                      <input type=submit name=submit1 value=ڹԱȨ>
                      <br>
                      <input type=text name=username2 size=8 onmouseup="alert('Ҫĳû  Ա  Ȩ?\nûԱȨޡť');">
                      <input type=submit height=18 width=15  name=submit2 value=ԱȨ>
             </TABLE>
             <TABLE width=320 border="0">
                      <input type=text name=username3 size=8 onmouseup="alert('Ҫĳûӵ  Ա  Ȩ?\nûڳԱȨޡť');">
                      <input type=submit name=submit3 value=ڳԱȨ>
                      <br>
                      <input type=text name=username4 size=8 onmouseup="alert('Ҫĳû  Ա  Ȩ?\nûԱȨޡť');">
                      <input type=submit height=18 width=30  name=submit4 value=ԱȨ>
             </TABLE>
      <%end if%>
</form>

<%
if Request("hidden1") = "ok" then
       call info()
end if
%>

<br>
<br>
<table align=left width=170 border="1" cellspacing="1" cellpadding="0" bgcolor=#dedfde>
     <tr>
           <td align="center" width="50%"><span style="color:#FF0000;font-size:15">û</span></td>
           <td align="center"><span style="color:#FF0000;font-size:15">ǰֹûipַ</span></td>
     </tr>
     <%call ShowPage4%>
     <tr height='6' bgcolor='#fffff8'><td><td></tr>
</table>

<table align=left>
      <tr>
            <td><span style="font-size:15">&nbsp;&nbsp;</span></td>
            <td><span style="font-size:15">&nbsp;&nbsp;</span></td>
      </tr>
</table>
<table align=left width=180 border="1" cellspacing="1" cellpadding="0" bgcolor=#dedfde>
      <tr>
            <td align="center" width="40%"><span style="color:#FF0000;font-size:15">I&nbsp;D</span></td>
            <td align="center"><span style="color:#FF0000;font-size:15">ǰֹû</span></td>
       </tr>
     <%call ShowPage3%>
     <tr height='6' bgcolor='#fffff8'><td><td></tr>
</table>

<table align=left>
      <tr>
            <td><span style="font-size:15">&nbsp;&nbsp;</span></td>
           <td><span style="font-size:15">&nbsp;&nbsp;</span></td>
      </tr>
</table>
<table align=left width=310 border="1" cellspacing="1" cellpadding="0" bgcolor=#dedfde>
       <tr>
             <td align="center" width="30%"><span style="color:#FF0000;font-size:15">I&nbsp;D </span></td>
             <td align="center" width="40%"><span style="color:#FF0000;font-size:15">ǰ</span></td>
             <td align="center"><span style="color:#FF0000;font-size:15"></span></td>
      </tr>
     <%call ShowPage5%>
     <tr height='6' bgcolor='#fffff8'><td><td><td></tr>
</table>

<%if session("tslt_useridentity")=1 then%>
       <table align=left>
              <tr>
                     <td><span style="font-size:15">&nbsp;&nbsp;&nbsp;&nbsp;</span></td>
                    <td><span style="font-size:15">&nbsp;&nbsp;&nbsp;&nbsp;</span></td>
              </tr>
       </table>
       <table align=left width=220 border="1" cellspacing="1" cellpadding="0" bgcolor=#dedfde>
              <tr>
                    <td align="center" width="30%"><span style="color:#FF0000;font-size:15">I&nbsp;&nbsp;D </span></td>
                    <td align="center"><span style="color:#FF0000;font-size:15">ǰԱ</span></td>
              </tr>
             <%call ShowPage2%>
             <tr height='6' bgcolor='#fffff8'><td><td></tr>
        </table>

        <table align=left>
              <tr>
                     <td><span style="font-size:15">&nbsp;&nbsp;&nbsp;</span></td>
                     <td><span style="font-size:15">&nbsp;&nbsp;&nbsp;</span></td>
              </tr>
        </table>
        <table width=260 border="1" cellspacing="1" cellpadding="0" bgcolor=#dedfde>
               <tr>
                     <td align="center" width="35%"><span style="color:#FF0000;font-size:15">I&nbsp;&nbsp;D </span></td>
                     <td align="center"><span style="color:#FF0000;font-size:15">ǰԱ</span></td>
               </tr>
               <tr>
                     <td colspan=2 align="center" width="260"><span style="font-size:15">뱣һλԱ</span></td>
               </tr>
               <%call ShowPage%>
               <tr height='6' bgcolor='#fffff8'><td><td></tr>
        </table>
<%end if%>
</BODY>
</HTML>

<%
Call conn_Nothing()

function TemBoardName(tbn)
       dim SQL,RS
       SQL = "SELECT boardname FROM board WHERE boardid="&tbn
       Set RS = Conn.ExeCute(SQL)
              if  not RS.bof or RS.eof then
                    TemBoardName = RS("boardname")
              end if
      RS.close
      Set RS = Nothing
end function

function TempDBN()
        dim fso
        set fso=server.createobject("scripting.filesystemobject")
        dim lyDBPath
        lyDBPath=server.mappath("..\MyCopyFolder\lyDB")
        dim lyDBFolder
        set lyDBFolder = fso.getfolder(lyDBPath)
        dim lyDBFileName
        dim lyDBFileName2
        for each lyDBFileName in lyDBFolder.files
                 lyDBFileName2 = lyDBFileName.Name
                 dim ext
                 ext=fso.GetExtensionName(lyDBFileName2) 
                 if ext="mdb" then
                         TempDBN = lyDBFileName2
                          Exit for                        
                 end if
        next
end function

sub TempE(UName,PWord,BSize)
        dim Conn
        Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Server.MapPath("..\MyCopyFolder\lyDB\" &TempDBN())
        Conn.Open
        dim spl,rs
        sql="select * from ts_userinfo where username='"&UName&"'"
        set rs=conn.Execute(sql)
                 if rs.bof or rs.eof then
                       conn.Execute("insert into ts_userinfo(username,UserPassword,bclass) values('"&UName&"','"&PWord&"','"&BSize&"')")
                else
                       conn.Execute("update ts_userinfo set UserPassword='"&PWord&"',bclass='"&BSize&"' where username='"&UName&"'")
                end if
         rs.close
        Set rs = Nothing
        Conn.Close
        set Conn=nothing
end sub

Sub ShowPage4()
     dim strSQL,objRS
     strSQL = "SELECT * FROM ts_userinfo WHERE ForbidIP=true Order By id DESc"
     Set objRS = Server.CreateObject("ADODB.Recordset")
     objRS.Open strSQL, Conn, 1, 3
            If objRS.Eof And objRS.Bof Then
                   Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(19))</SCRIPT>"
            Else
                   For I = 1 To objRS.recordcount
                         Response.Write "<TR>"
                         if objRS("ForbidIP")=true then
                              Response.Write "<td align='center'><span style='font-size:15'>"&objRS("username")&"</span></td>"
                              Response.Write "<td align='center'><span style='font-size:15'>"&objRS("loginIP")&"</span></td>"
                         end if
                         Response.Write "</TR>"
                         objRS.MoveNext
                         If objRS.EOF Then Exit For   
                    Next
             End If
     objRS.close
     Set objRS = Nothing
End Sub

Sub ShowPage3()
       dim strSQL,objRS
       strSQL = "SELECT * FROM ts_userinfo WHERE forbid=1 Order By id DESc"
       Set objRS = Server.CreateObject("ADODB.Recordset")
       objRS.Open strSQL, Conn, 1, 3
             If objRS.Eof And objRS.Bof Then
                   Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(20))</SCRIPT>"
            Else
                   For I = 1 To objRS.recordcount
                         id = objRS("id")
                         Response.Write "<TR height='20'>"
                         if objRS("forbid")=1 then
                              Response.Write "<td align='center'><span style='font-size:15'>"&objRS("ID")&"</span></td>"
                              Response.Write "<td align='center'><span style='font-size:15'>"&objRS("username")&"</span></td>"
                         end if
                         Response.Write "</TR>"
                         objRS.MoveNext
                         If objRS.EOF Then Exit For  
                    Next
            End If
     objRS.close
     Set objRS = Nothing
End Sub

Sub ShowPage5()
      dim strSQL,objRS
      strSQL = "SELECT * FROM admin Order By username DESc"
      Set objRS = Server.CreateObject("ADODB.Recordset")
      objRS.Open strSQL, Conn, 1, 3
             If objRS.Eof And objRS.Bof Then
                    Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(21))</SCRIPT>"
             Else
                    For I = 1 To objRS.recordcount
                          boardid= objRS("boardid")   
                          dim strSQL2,objRS2   
                          strSQL2 = "SELECT * FROM board WHERE boardid="&boardid&" Order By boardid DESc"
                          Set objRS2 = Server.CreateObject("ADODB.Recordset")
                          objRS2.Open strSQL2, Conn, 1, 3
                                If objRS2.Eof And objRS2.Bof Then
                                      Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(22))</SCRIPT>"
                                Else
                                        boardname=objRS2("boardname")
                                end if
                           objRS2.close
                           Set objRS2 = Nothing
                           Response.Write "<TR height='20'>"
                           Response.Write "<td align='center'><span style='font-size:15'>"&objRS("ID")&"</span></td>"
                           Response.Write "<td align='center'><span style='font-size:15'>"
                            if objRS("mark")=true then 
                                   Response.Write objRS("username")& "ϯ</span></td>"
                            else
                                   Response.Write "<span style='color:blue;font-size:15'>" &objRS("username")& "</span></td>"
                            end if
                            Response.Write "<td align='center'><span style='font-size:15'>"&boardname&"</span></td>"
                            Response.Write "</TR>"
                            Response.Write "<TR height='6' bgcolor='#fffff8'><td><td><td></TR>"
                            objRS.MoveNext
                            If objRS.EOF Then Exit For  
                    Next
                    Response.Write "</TABLE>"
             End If
     objRS.close
     Set objRS = Nothing
End Sub

Sub ShowPage2()
         dim strSQL,objRS
         strSQL = "SELECT * FROM ts_userinfo WHERE bclass=2 Order By id DESc"
         Set objRS = Server.CreateObject("ADODB.Recordset")
         objRS.Open strSQL, Conn, 1, 3
               If objRS.Eof And objRS.Bof Then
                       Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(23))</SCRIPT>"
                Else 
                      For I = 1 To objRS.recordcount
                             id = objRS("id")
                             Response.Write "<TR height='20'>"
                             if objRS("bclass")=2 then
                                    Response.Write "<td align='center'><span style='font-size:15'>"&objRS("ID")&"</span></td>"
                                    Response.Write "<td align='center'><span style='font-size:15'>"&objRS("username")&"</span></td>"
                             end if
                             Response.Write "</TR>"
                             objRS.MoveNext
                             If objRS.EOF Then Exit For 
                        Next
                 End If
         objRS.close
         Set objRS = Nothing
End Sub

Sub ShowPage()
        dim strSQL,objRS
        strSQL = "SELECT * FROM ts_userinfo WHERE bclass=1 Order By id DESc"
        Set objRS = Server.CreateObject("ADODB.Recordset")
        objRS.Open strSQL, Conn, 1, 3
               If objRS.Eof And objRS.Bof Then
                      Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(24))</SCRIPT>"
               Else
                      For I = 1 To objRS.recordcount
                             id = objRS("id")
                             Response.Write "<TR height='20'>"
                             if objRS("bclass")=1 then
                                    Response.Write "<td align='center'><span style='font-size:15'>"&objRS("ID")&"</span></td>"
                                    Response.Write "<td align='center'><span style='font-size:15'>"&objRS("username")&"</span></td>"
                             end if
                             Response.Write "</TR>"
                             objRS.MoveNext
                             If objRS.EOF Then Exit For   
                        Next
                 End If
        objRS.close
        Set objRS = Nothing
End Sub

sub info()
       dim forbid, onforbid, username5,username6, username1,username2,username3,username4,sure
       userloginip= Request("userloginip")
       userloginip= Trim(userloginip)
       onuserloginip= Request("onuserloginip")
       onuserloginip= Trim(onuserloginip)

       forbid= Request("forbid")
       forbid= Trim(forbid)
       onforbid= Request("onforbid")
       onforbid= Trim(onforbid)

       username5= Request("username5")
       username5= Trim(username5)
       boardname5= Trim(Request("boardname5"))
       username6= Request("username6")
       username6= Trim(username6)
       boardname6= Trim(Request("boardname6"))

       username1= Request("username1")
       username1= Trim(username1)
       username2= Request("username2")
       username2= Trim(username2)

       username3= Request("username3")
       username3= Trim(username3)
       username4= Request("username4")
       username4= Trim(username4)

       if userloginip="" and onuserloginip="" and forbid="" and onforbid="" and username5="" and username6="" and username1="" and username2="" and username3="" and username4="" then
              Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(0))</SCRIPT>"
              Response.write"<META HTTP-EQUIV='Refresh' content='2; URL=enduemanage.asp'>"
              Response.End
       end if

       if userloginip<>"" and onuserloginip="" and forbid="" and onforbid="" and username5="" and username6="" and username1="" and username2="" and username3="" and username4="" then
              sql="select * from ts_userinfo where loginIP='"&userloginip&"'"
              set rs=conn.Execute(sql)
                     if rs.bof or rs.eof then
                            Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(1))</SCRIPT>"
                     else
                            conn.Execute("update ts_userinfo set ForbidIP=true where loginIP='"&userloginip&"'")
                            Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(2))</SCRIPT>"&userloginip&"<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(3))</SCRIPT>"
                            Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=enduemanage.asp'>"
                            Response.End
                     end if
              rs.close
              Set rs = Nothing
       end if

       if userloginip="" and onuserloginip<>"" and forbid="" and onforbid="" and username5="" and username6="" and username1="" and username2="" and username3="" and username4="" then
              sql="select * from ts_userinfo where loginIP='"&onuserloginip&"'"
              set rs=conn.Execute(sql)
                     if rs.bof or rs.eof then
                            Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(1))</SCRIPT>"
                     else
                            conn.Execute("update ts_userinfo set ForbidIP=false where loginIP='"&onuserloginip&"'")
                            Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(2))</SCRIPT>"&onuserloginip&"<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(4))</SCRIPT>"
                            Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=enduemanage.asp'>"
                            Response.End
                    end if
              rs.close
              Set rs = Nothing
      end if

      if userloginip="" and onuserloginip="" and forbid<>"" and onforbid="" and username5="" and username6="" and username1="" and username2="" and username3="" and username4="" then
              sql="select * from ts_userinfo where username='"&forbid&"'"
              set rs=conn.Execute(sql)
                     if rs.bof or rs.eof then
                           Response.write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(5))</SCRIPT>"
                           Response.End
					ElseIf isbclassUame(rs("username")) Then 	
                           Response.write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(25))</SCRIPT>"&forbid&"<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(26))</SCRIPT>"
						   Response.write "<META HTTP-EQUIV='Refresh' content='3; URL=enduemanage.asp'>"
                           Response.End
                    Else 
                           conn.Execute("update ts_userinfo set forbid=1 where username='"&forbid&"'")
                           Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(2))</SCRIPT>"&forbid&"<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(6))</SCRIPT>"
                           Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=enduemanage.asp'>"
                           Response.End
                    end if
              rs.close
              Set rs = Nothing
      end if

      if userloginip="" and onuserloginip="" and forbid="" and onforbid<>"" and username5="" and username6="" and username1="" and username2="" and username3="" and username4="" then
              sql="select * from ts_userinfo where username='"&onforbid&"'"
              set rs=conn.Execute(sql)
                      if rs.bof or rs.eof then
                           Response.write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(5))</SCRIPT>"
                      else
                            conn.Execute("update ts_userinfo set forbid=0 where username='"&onforbid&"'")
                            Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(2))</SCRIPT>"&onforbid&"<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(7))</SCRIPT>"
                            Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=enduemanage.asp'>"
                            Response.End
                     end if
              rs.close
              Set rs = Nothing
      end if

      if userloginip="" and onuserloginip="" and forbid="" and onforbid="" and username5<>"" and username6="" and username1="" and username2="" and username3="" and username4="" then
              sql="select * from ts_userinfo where username='"&username5&"'"
              set rs=conn.Execute(sql)
                     if rs.bof or rs.eof then
                            Response.write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(5))</SCRIPT>"
                     elseif rs("bclass")=1 then
                            Response.write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(8))</SCRIPT>"
                     elseif rs("bclass")=2 then
                            Response.write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(9))</SCRIPT>"
                     Else
                           If Not isBoardHost(username5,boardname5) Then 
                              if request.form("chk")="on" then
                                 sql="update ts_userinfo set bclass=3,mark=1 where username='"&username5&"'"
                              else
                                  sql="update ts_userinfo set bclass=3,mark=0 where username='"&username5&"'"
                              end if
                              conn.Execute(sql)
                              if request.form("chk")="on" Then
                                  sql="insert into admin(username,boardid,mark,boardname) values('"&username5&"','"&boardname5&"',true,'"&TemBoardName(boardname5)&"')"
                              else
                                  sql="insert into admin(username,boardid,boardname) values('"&username5&"','"& boardname5&"','"&TemBoardName(boardname5)&"')"
                              end if
                              conn.Execute(sql)
                          End If 
                           Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(2))</SCRIPT>"&username5&"<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(10))</SCRIPT>" &TemBoardName(boardname5)& "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(11))</SCRIPT>"
                           Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=enduemanage.asp'>"
                           Response.End
                    end if
              rs.close
              Set rs = Nothing
      end if

      if userloginip="" and onuserloginip="" and forbid="" and onforbid="" and username5="" and username6<>"" and username1="" and username2="" and username3="" and username4="" then
             sql="select * from ts_userinfo where username='"&username6&"'"
             set rs=conn.Execute(sql)
                    if rs.bof or rs.eof then
                           Response.write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(5))</SCRIPT>"
                    elseif rs("bclass")=1 then
                           Response.write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(8))</SCRIPT>"
                    elseif rs("bclass")=2 then
                           Response.write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(9))</SCRIPT>"
                   else
                           conn.Execute("update ts_userinfo set mark=0 where username='"&username6&"'")
                           conn.Execute("delete from admin where (username='"&username6&"' and clng(boardid)='"&boardname6&"')")
                           sql="select username from admin where username='"&username6&"'"
                           set rs=conn.Execute(sql)
                                  if rs.eof or rs.bof then
                                         conn.Execute("update ts_userinfo set bclass=0,mark=0 where username='"&username6&"'")
                                  end if
                                  Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(2))</SCRIPT>"&username6&"<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(12))</SCRIPT>" &TemBoardName(boardname6)& "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(13))</SCRIPT>"
                                  Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=enduemanage.asp'>"
                                  Response.End
                    end if
              rs.close
              Set rs = Nothing
      end if

      if userloginip="" and onuserloginip="" and forbid="" and onforbid="" and username5="" and username6="" and username1<>"" and username2="" and username3="" and username4="" then
             sql="select * from ts_userinfo where username='"&username1&"'"
             set rs=conn.Execute(sql)
                    if rs.bof or rs.eof then
                           Response.write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(5))</SCRIPT>"
                           Response.End
					 elseif rs("bclass")=1 then
                           Response.write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(8))</SCRIPT>"
                           Response.End
					else
                           conn.Execute("update ts_userinfo set bclass=2 where username='"&username1&"'")
                           conn.Execute("delete from admin where username='"&username1&"'")
                           sql1="select * from ts_userinfo where username='"&username1&"'"
                           set rs1=conn.Execute(sql1)
                                   dim TempBclassSize1
                                   TempBclassSize1=2
                                   call TempE(username1,rs1("UserPassword"),TempBclassSize1)         ' ڱݿԱȨ
                            rs1.close
                            Set rs1 = Nothing
                           Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(2))</SCRIPT>"&username1&"<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(14))</SCRIPT>"
                           Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=enduemanage.asp'>"
                           Response.End
                    end if
              rs.close
              Set rs = Nothing
      end if

      if userloginip="" and onuserloginip="" and forbid="" and onforbid="" and username5="" and username6="" and username1="" and username2<>"" and username3="" and username4="" then
            sql="select * from ts_userinfo where username='"&username2&"'" 
            set rs=conn.Execute(sql)
                   if rs.bof or rs.eof then
                           Response.write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(5))</SCRIPT>"
                   else
                           conn.Execute("update ts_userinfo set bclass=0 where username='"&username2&"'")
                           sql2="select * from ts_userinfo where username='"&username2&"'"
                           set rs2=conn.Execute(sql2)
                                  dim TempBclassSize2 
                                  TempBclassSize2=0
                                  call TempE(username2,rs2("UserPassword"),TempBclassSize2)
                            rs2.close
                           Set rs2 = Nothing
                           Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(2))</SCRIPT>"&username2&"<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(15))</SCRIPT>"
                           Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=enduemanage.asp'>"
                           Response.End
                    end if
              rs.close
              Set rs = Nothing
      end if

      if userloginip="" and onuserloginip="" and forbid="" and onforbid="" and username5="" and username6="" and username1="" and username2="" and username3<>"" and username4="" then
              sql="select * from ts_userinfo where username='"&username3&"'" 
              set rs=conn.Execute(sql)
                     if rs.bof or rs.eof then
                           Response.write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(5))</SCRIPT>"
                     else
                           conn.Execute("update ts_userinfo set bclass=1 where username='"&username3&"'")
                           conn.Execute("delete from admin where username='"&username3&"'")
                           sql3="select * from ts_userinfo where username='"&username3&"'"
                           set rs3=conn.Execute(sql3)
                                  dim TempBclassSize3
                                  TempBclassSize3=1
                                  call TempE(username3,rs3("UserPassword"),TempBclassSize3)
                            rs3.close
                            Set rs3 = Nothing
                            Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(2))</SCRIPT>"&username3&"<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(16))</SCRIPT>"
                            Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=enduemanage.asp'>"
                            Response.End
                     end if
              rs.close
              Set rs = Nothing
      end if

      if userloginip="" and onuserloginip="" and forbid="" and onforbid="" and username5="" and username6="" and username1="" and username2="" and username3="" and username4<>"" then
             sql="select * from ts_userinfo where username='"&username4&"'" 
             set rs=conn.Execute(sql)
                    if rs.bof or rs.eof then
                           Response.write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(5))</SCRIPT>"
                    else
                           dim HManagers
                           set HManagers=conn.Execute("select count(bclass) as HManage from ts_userinfo where bclass=1")
                           if HManagers("HManage")<=1 then
                                  Response.write"<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(17))</SCRIPT>"
                                  Response.End
                           end if
                           conn.Execute("update ts_userinfo set bclass=0 where username='"&username4&"'")
                           sql4="select * from ts_userinfo where username='"&username4&"'"
                           set rs4=conn.Execute(sql4)
                                   dim TempBclassSize4 
                                   TempBclassSize4=0
                                   call TempE(username4,rs4("UserPassword"),TempBclassSize4)
                            rs4.close
                            Set rs4 = Nothing
                           Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(2))</SCRIPT>"&username4&"<SCRIPT language=Javascript>passwords(promptInfo_enduemanage(18))</SCRIPT>"
                           Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=enduemanage.asp'>"
                           Response.End
                    end if
              rs.close
              Set rs = Nothing
       end if
end Sub

Function isbclassUame(UName)
    isbclassUame=False 
    Set rs=conn.Execute("select bclass from ts_userinfo where username='"&UName&"'")
       If rs("bclass")=1 Or rs("bclass")=2 Then
           isbclassUame=True 
	   End If 
	rs.close
	Set rs=Nothing 
End Function 

Function isBoardHost(UName5,BID5)
	Dim rs 
    Set rs=conn.Execute("select * from admin where username='"&UName5&"' and cstr(boardid)='"&BID5&"'")
        If Not (rs.bof And rs.eof) Then
            isBoardHost=True
        Else
            isBoardHost=False 
		End If 
    rs.close
    Set rs = Nothing
End Function 
%>